home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / demosrc / cfsource / testpps.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-11-24  |  457 b   |  23 lines
  1. {$M 1024,0,100000}
  2. PROGRAM TestPPS;
  3. USES
  4.     Crt,Dos;
  5.  
  6. {$L C:\DEMOS\CODE\MODPLAY\MODMAIN }
  7. {$L C:\DEMOS\CODE\MODPLAY\DMASUB }
  8. {$L C:\DEMOS\CODE\MODPLAY\MCLSUB }
  9. {$L C:\DEMOS\CODE\MODPLAY\MODSUB }
  10.  
  11. PROCEDURE StartPlay; EXTERNAL;
  12. PROCEDURE UpdatePlay; EXTERNAL;
  13. PROCEDURE StopPlay; EXTERNAL;
  14.  
  15. BEGIN
  16.      StartPlay;
  17.      REPEAT
  18.            UpdatePlay;
  19.            Delay(70);
  20.      UNTIL KeyPressed;
  21.      StopPlay;
  22.      WriteLn('Ende!');
  23. END.